home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 3032.ZIP / RLIB20.ZIP / RL_BRIGH.PRG < prev    next >
Text File  |  1989-02-18  |  892b  |  35 lines
  1. * Function: BRIGHT
  2. * Author..: Richard Low
  3. * Syntax..: BRIGHT( [<expC>] )
  4. * Returns.: Color setting passed as parameter in bright. (With "+" added)
  5. *           If parameter is omitted, current color is switched to bright.
  6.  
  7. FUNCTION BRIGHT
  8. PARAMETER p_color
  9. PRIVATE ret_val
  10.  
  11. IF TYPE('p_color') = 'C'
  12.    p_color = UPPER(p_color)
  13. ELSE
  14.    p_color = UPPER(SETCOLOR())
  15. ENDIF
  16.  
  17. IF "/" $ p_color
  18.    ret_val = SUBSTR(p_color, 1, AT('/',p_color)-1 ) + "+" +;
  19.              SUBSTR(p_color, AT('/',p_color) )
  20. ELSE
  21.    IF "," $ p_color
  22.       ret_val = SUBSTR(p_color, 1, AT(',',p_color)-1 ) + "+" +;
  23.                 SUBSTR(p_color, AT(',',p_color) )
  24.    ELSE
  25.       ret_val = p_color + "+"
  26.    ENDIF
  27. ENDIF
  28.  
  29. IF ISCOLOR() .AND. SUBSTR(ret_val, 1, 2) = "W+"
  30.    *-- if White on a color monitor, make bright Yellow
  31.    ret_val = "GR+" + SUBSTR( ret_val, 3 )
  32. ENDIF
  33.  
  34. RETURN (ret_val)
  35.